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iSilUm 


This  report  describes  a computer  program  that  provides  a means  for 
tracking  contractor's  performance  where  Cost/Schedule  Control  Systems 
Criteria  are  utilized.  The  program  was  specifically  designed  for  the 
Control  Data  Corporation  6500/6600  computer  system  at  USA  Armament  Research 
and  Development  Command,  Dover,  NJ.  Input  data  for  the  program  are  those 
normally  found  in  a contractor's  Cost  Performance  Report.  Program  out- 
put is  a series  of  cost  ans  Schedule  Performance  Index  graphs,  a summary 
variance  graph,,  and  a set  of  table  th  t s'  mmarizes  CS^  parameters. 


INTRODUCTION 


The  purpose  of  this  report  is  to  describe  the  computer  program  i 

currently  being  utilized  by  adjuncts  of  the  Project  Manager  for  I 

Selected  Ammunition,  Dover,  NJ,  to  satisfy  Cost/Schedule  Control  i 

2 

Systems  Criteria  (CS  ) requirements. 

2 

The  CS  requirements,  procedures  and  techniques  are  adequately  j 

documented^  and  these  policies  will  not  be  further  propounded.  For  | 

) 

purposes  of  clarity,  however,  some  basic  terms  and  acronyms  are  i 

described  throughout  the  report  to  assist  those  readers  who  have  not  ; 

2 

totally  committed  to  memory  the  CS  jargon.  i 

The  program  is  written  in  Fortran  IV  for  the  CDC  6500/6600  com-  il 

2 i' 

puter  and  uses  a plotting  technique,  PRINTERPLOT  , written  specif i-  ;j 

cally  for  local  utility.  (The  author  of  PRINTERPLOT  has  expressed  \ 

his  willingness  to  provide  the  routine  and  assist  in  its  placement  ; 

into  computer  libraries  at  other  installations.)  The  Fortran  state-  ' 

ments  written  to  produce  printer  graphs  with  the  PRINTERPLOT  routines  |j 

/I 

are  almost  identical  to  those  statements  used  for  CALCOMP  plotting.  j| 

With  some  further  effort,  the  pertinent  Fortran  lines  in  this  program  ^ 

i 

can  be  converted  to  CALCOMP  plotting  or  other  plotting  instruments.  j 

f 

i 

j 

j 

i 

]_  I 

Superscripts  refer  to  similarly  numbered  entries  in  the  References.  ; 


INPUT  DESCRIPTION 


2 

The  CS  Terminology 

Budgeted  Cost  of  Work  Scheduled  (BCWS)  - The  budget  cost  of  the 
effort  on  a work  package  (element) , completed  or  in-progress,  that 
was  scheduled  to  be  accomplished  at  the  time  of  the  reporting  period. 

Budgeted  Cost  of  Work  Performed  (BCWP)  - The  budgeted  dollar  value 
of  the  accomplishments  achieved  on  a work  element  at  the  time  of  the 
reporting  period. 

Actual  Cost  of  Work  Performed  (ACWP)  - The  cost  actually  incurred 
and  recorded  in  accomplishing  the  work  performed  on  a work  element 
at  the  time  of  the  reporting  period. 

Other  Input  Terminology 

Contract  Target  Cost  - The  total  budgfet  as  defined  by  the  negotiated 
contract  cost  (including  the  following  3 terms  described  below) . 

Management  Reserve  - An  amount  of  the  total  budget  withheld  for 
management  control  purposes  and  not  assigned  to  a specific  work  element. 

Undistributed  Budget  - An  amount  of  the  total  budget  which  has 
not  been  assigned  to  a specific  work  element.  For  the  purposes  of 
this  program  this  item  can  be  additionally  defined:  it  is  a part  of 

f 

the  total  budget  which  has  been  assigned  to  a specific  work  element 
which  was  not  scheduled  to  begin  at  the  time  of  the  reporting  period. 

G and  A - An  amount  of  the  total  budget  set  aside  for  general  and 
administrative  purposes. 
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Estimated  Cost  at  Completion  (EAC)  - The  contractors  estimated 
cost  at  completion  of  the  contract  effort  including  the  actual  direct 
costs  and  indirect  costs  of  all  work  completed  and  authorized  work 
remaining. 

Work  Element  Schedules 

The  time  sequence  of  work  elements  is  important  to  proper  program 
execution.  To  facilitate  and  understand  the  program  variables  "first 
month",  "last  month",  and  "months  in  progress",  a bar-graph  of  work 
element  schedules  must  be  prepared.  It  will  then  be  obvious  that 
the  definition  of  these  variables,  for  each  work  element,  is  keyed 
to  the  earliest  starting  element.  A typical  work  element/schedule 
chart  and  values  assigned  to  the  three  variables  is  shown  in  Figure  1. 

Casting  Out  Zeros 

The  program  contains  many  computations,  cost  variance  percent  and 

schedule  variance  percent  are  two  examples,  that  Involve  simple 

division.  In  the  two  examples  cited,  the  available  values  of  the  current 

2 

BCWP  and  ACWP  are  used  as  denominators.  Zero  values  for  these  CS  terms 

are  not  uncommon,  viz,  work  scheduled  for  a work  element  may  not  have 

been  accomplished  and  no  charges  were  accrued;  thus  BCWP  = ACWP  = 0. 

2 

(Persons  responsible  for  tracking  CS  will  attest  that  reasons  for  the 
above  occurrence  are  legion.) 

The  program  will  not  accept  zeros  for  values  of  BCWP  and  ACWP. 
Therefore,  to  allow  computations  to  proceed  when  a 0 value  is  reported. 
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1 Typical 

Bar  Chart  of 

Program  Element  Schedules 

the  user  must  enter  the  value,  1 (dollar).  The  program  results  will 
not  be  altered  in  that  gross  cost  and  schedule  variances  will  still  be 
highlighted. 

Program  Limits 

The  program  will  accept  data  for  as  many  as  twenty  (20)  program 
elements  for  a duration  of  twenty  (20)  months. 

Dollar  values  entered  may  be  exact  to  the  dollar  up  to  8 digits 
(99999999  max)  or  may  be  rounded-off  as  desired.  All  values  must  have 
similar  units.  Whole  dollar  and  rounded-off  dollar  entries  will  result 
in  erroneous  output  and  may  prematurely  terminate  the  execution  of  the 
program. 

2 

Related  CS  Input 

2 

The  program  a summary  fashion,  the  inclusion  of  CS  In- 

2 

formation  of  a related  effort.  Thus,  if  an  in-house  effort,  with  CS 
provisions  is  in  progress  concurrent  with  a contract  effort,  the  data 
provided  in  the  Cost  Performance  Report  of  the  in-house  effort  can  be 
Included  for  consideration  in  the  program  output.  Other  uses  for  this 
optional  input  are  possible. 
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THE  DATA  DEOC 


Data  Card  Formats 

Table  I is  a description  of  each  of  the  cards  in  the  data  deck  in- 
cluding the  variable  names,  their  purpose,  their  column  location  and 
the  formats  of  the  entered  values. 

Typical  Data  Deck  Setup 

Figure  2 illustrates  the  setup  of  a typical  data  deck.  If  the 
value  on  Card  Type  1 is  a 0 (zero).  Card  Type  la  is  omitted.  Any 
value  other  than  zero  on  Card  Type  1 must  be  accompanied  by  a Card 
Type  la. 

The  illustration  shows  the  repetitive  nature  of  Card  Types  10 
through  12  for  a job  with  two  program  elements,  each  element  schedule 
being  three  months  in  length. 

Data  Deck  for  a Sample  Case 

Table  II  is  typical  of  input  for  this  program,  each  line  repre- 
senting one  data  card  type  as  described  by  Table  I.  This  ficticious 
input  data  is  used  as  a sample  case  to  provide  reference  material. 
Appendix  A,  for  the  discussion  of  program  output. 


TABLE  I - DATA  CARD  FORMATS 


CARD 

TYPE 

VARIABLE 

NAME 

COLUMN 

FORMAT 

1 

KEY3 

1 

11 

la 

DBCWS 

1-10 

FIO.O 

CBCWP 

11-20 

FIO.O 

CACWP 

21-30 

FIO.O 

CCV 

31-40 

FIO.O 

CSC 

41-50 

FIO.O 

CGTB 

51-60 

FIO.O 

CEST 

61-70 

FIO.O 

2 

OCTC 

1-10 

FIO.O 

3 

KEYl 

1-5 

15 

KEY2 

6-10 

15 

4 

DAI 

1-10 

AlO 

DA2 

11-20 

AlO 

WKS 

21-25 

F5.0 

5 

NK 

1-3 

13 

6 

HTN 

1-10 

AlO 

lYR 

11-14 

15 

DESCRIPTION 

KEYS  = 1;  allows  program  reading  of 

related  effort  data,  card  la 
KEYS  = 0;  no  related  effort  exists. 

For  related  effort:  the  budgeted 

cost  of  work  scheduled. 

The  budgeted  cost  of  work  performed. 

The  actual  cost  of  work  performed. 

The  cost  variance. 

The  schedule  variance. 

The  total  budget. 

The  estimated  cost  at  completion. 

The  total  budget  as  defined  by  the 
negotiated  contract  cost. 

KEYl  = 0 prevents  printing  of  cost 

and  schedule  variance  graphs . 
KEYl  = 1;  allows  graphic  output. 

2 

KEY2  = 0;  prevents  printing  of  CS 
elements  graph. 

KEY2  = 1;  allows  graphic  output. 

Alphanumeric  date  of  report. 

Max  = 20  characters. 

The  number  of  weeks  in  the  current 
+ 2 previous  reporting  periods. 

Number  of  work  elements  as  of  the 
current  report  period. 

Alphanumeric  month  of  the  earliest 
starting  work  element. 

Year  of  earliest  starting  work  element 
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TABLE  I (continued) 


CARD 

VARIABLE 

TYPE 

NAME 

COLUMN 

FORMAT 

7 

NAME(1,NK+1) 

1-10 

AlO 

NAME(2,NK+1) 

11-20 

AlO 

NAME(3,NK+1) 

21-30 

AlO 

NAME(4,NK+1) 

31-40 

AlO 

nameO,nk+i) 

41-50 

AlO 

8 

UB 

1-10 

FIO.O 

GA 

11-20 

FIO.O 

GAl 

21-30 

FIO.O 

9 

MRO 

1-10 

110 

MRP 

11-20 

110 

MRC 

21-30 

110 

Card 

Types  10  through  12 

are  grouped 

10 

NAME(l,i) 

1-10 

AlO  . 

NAME(2,i) 

11-20 

AlO 

11 

M(i) 

1-5 

15 

IFM(i) 

6-10 

15 

LM(i) 

11-15 

15 

TB(1)  16-25  FIO.O 


DESCRIPTION 

Alphanumeric  title  of  the 
program  including  contractor 
name,  item  name  and  nomen- 
clature, and  contract  number. 

In  any  order,  max  = 50  characters. 

The  undistributed  budget. 

The  original  contract  G&A  amount. 

The  current  contract  G&A  amount.  This 
value  may  be  identical  to  the  original 
G&A. 

The  original  contract  Management 
Reserve . 

The  Management  Reserve  that  was 
current  in  the  previous  reporting 
period. 

The  current  Management  Reserve. 

for  each  of  the  NK  work  elements. 

Alphanumeric  title  of  the  ith  program 
element.  Max  - 20  characters. 

Months  in  progress  for  the  ith  work 
element. 

The  numerical  value  of  the  first 
month  of  the  ith  work  element.  See 
test  "Input  Description  - Work 
Element  Schedules)." 

The  numerical  value  of  the  last  month 
of  the  ith  work  element.  See  text 
noted  above. 

The  total  budget  for  the  ith  work 
element. 
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Card  Type  12  is  repeated  for  each  month  of  the  existence  of  the  ith  work 
element.  The  number  of  cards  will  be  LM(i)  - IFM(i)  + 1. 


CARD  VARIABLE 

TYPE  NAME  COLUMN  FORMAT  DESCRIPTION 


12  BCWS(i,j)  1-8  F8.0 


The  budgeted  cost  of  work  scheduled 
for  the  ith  work  element  on  the  jth 
month.  For  future  months,  (beyond 
the  current  report  period) , only  the 
BCWS(i,j)  will  appear  on  this  card. 


BCWP(i,j)  9-16  F8.0  The  budgeted  cost  of  work  performed 

for  the  ith  work  element  in  the 
current  month.  For  months  ahead  of 
the  current  period,  this  entry  will 
be  blank. 


ACWP(i,j)  17-24  F8.0  The  actual  cost  of  work  performed 

for  the  ith  work  element  in  the 
current  month.  For  months  ahead 
of  the  current  period,  this  entry 
will  be  blank. 


CEAC(i,j)  25-32  F8.0  The  contractor  estimate  at  com- 

pletion for  the  ith  work  element  in 
the  current  month.  For  months 
ahead  of  the  current  period,  this 
entry  will  be  blank. 
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example  op  2 PROGRAM 
ELEMENTS  EACH  OF  3 


MONTHS  DURATION 


)0 

»E 


NOTE  I:  THIS  CARO  TYPE  IS 
optional- DEPENDENT  UPON  VALUE 
ON  CARO  TYPE  1. 


NOTE  2:  REPEAT  FOR  EACH 
PROGRAM  ELEMENT. 


NOTE  3:  REPEAT  FOR  EACH 
MONTH  OF  THE  SCHEDULE  OF 
THE  PROGRAM  ELEMENT. 


Fig.  2 Typical  Data  Deck  Setup 


TABLE  II  - TYPICAL  INPUT  FOR  SAMPLE  CASE 


C 

1231591 
1 1 

31  S£P  1977  13 

8 

APRIL  1976 

WPOSOMEEVER  EO  CONTRACT  76-C-0214  CART,  XH185E1 
: 888J&3  KiTeAPO 

31C347  310347  310347 


SYSTEM  INTEGRATION 
6 X 1 

116113 

627€ 

8629 

8 62  9 

80469 

2t415 

202cC 

2C  20  C 

78587 

34252 

30  000 

29995 

79995 

50273 

492C8 

492CU 

7940  « 

635lw 

610  l'J 

60  580 

73330 

71713 

634L  C 

73  4C  C 

117764 

61313 

92913 

104513 

116115 

CARRIER  METAL  PART 

S 

6 

1 

10 

95413 

7630  7 

6664 

6562 

6 56C 

16733 

192LC 

192CC 

8CC74  r ■ . V 1 i V i 
85962 

32132 

373IG 

37262 

52424 

535CC 

53538 

78338 

67325 

7 C 5 0 L 

7C  53  7 

83937 

81413 

812CC 

8120  u 

95181 

86613 
91213 
94813 
95413 
GRENAOE  ME 

tal  parts 

6 

1 

9 

19  73  77 

6712 

78C0 

7805 

69570 

25151 

27400 

27400 

79385 

4954L 

344C0 

34353 

67753 

59582 

664CC 

8670  e 

9940  8 

66171 

800G0 

101473 

106323 

114377 

102200 

12420C 

19721E 

182177 

195577 

197377 

FUZE  ASSEMBLY 
6 19 

1511C6 

17€12 

13918 

1390C 

74613 

30C61 

334w«j 

3348  U 

83131 

4679C 

58  30C 

57  944 

83644 

68182 

715CC 

7147G 

1C0770 

76011 

82000 

84721 

95221 

b 

s. 


TABLE  II  - TYPICAL  INPUT  FOR  SAMPLE  CASE  (cont) 


>-* 

10210  t 
< 120306 
133506 
151106 

93600 

98600 

151645 

GRENADE  L0G4-ASSBL 

Y 

6 1 

10 

37933 

1 

70L 

dCG 

800 

20039 

‘f,.  U > 

4036 

24C0 

2 40  0 

1970  5 

»■-  * 

8979 

4700 

4765 

23865 

13306 

8300 

8602 

21902 

-*£•  ■> 

14509 

123L  u 

12253 

19753 

V 

15053 

17473 

24693 

31913 

37933 

1500C 

250  0 0 

37923 

4 _ 

f»rojlct  ILE 

assembly 

6 1 

1C 

21559 

600 

62H 

62  0 

12018 

241  € 

1400 

1400 

11794 

4739 

2600 

2626 

13428 

7708 

5200 

5249 

12149 

95uC 

82C0 

817C 

1097C 

10279  121CD 

111  79 
14319 
17-*5  ‘ 

21559 

SELF  OESTRUCT 
6 1 1C 

12635 

28350C 

2150  5 

32330 

32420 

32420 

250845 

197702 

<*2700 

42  70  0 

250324 

217574 

ld47C» 

184717 

249217 

229914 

1976l0 

197615 

257615 

239786 

228000 

235403 

248403 

24570C 
257100 
2685CC 
2799CC 
28 3 50 C 
TOOLING 

6 1 

246JC0 

9 

2460C0 
542  32 

283834 

60  60 

71C0 

7120 

52178 

1639C 

94{l.' 

94CC 

50269 

29685 

16  00  0 

16020 

51135 

3940  5 

32300 

32298 

49298 

41770 

4G30C 

4012  7 

45627 

44872 

49992 

52112 

54232 

4990C 

499CC 

5417  5 

i 


! 

i 


r 

i 

X 

L 


; 


12 


OUTPUT  DESCRIPTION 


The  output  of  the  program  consists  of  4 optional  graphs  for  each  pro- 
gram element  and  the  total  program  (all  the  elemenfs -summarized) , a var- 
iance graph  for  the  total  program,  and  a set  of  tables  that  presents 

2 

various  facets  and  types  of  CS  Information.  Each  of  the  separate  kinds 
of  output  is  discussed  below. 

The  Schedule  and  Cost  Performance  Index  Graphs 

The  schedule  and  cost  performance  graphs  for  each  element  and  the 
total  program  are  plotted  in  the  format  of  Favorable /Unfavorable  (per- 
formance) vs  Months  in  Progress.  When  the  variable  KEYl  = 0,  these  graphs 
will  be  omitted.  For  each  program  element,  the  zero  baseline  of  the  index 
is  its  scheduled  performance.  Favorable  or  unfavorable  performance  indices 
range  from  0 to  + 1.0  and  0 to  - 1.0,  respectively.  The  indices  are  com- 
puted and  the  graph  routines  are  defined  in  SUBROUTINE  INDEX.  The 
Schedule  Performance  Index  is  the  difference  between  BCWP  and  BCWS  as  a 
fraction  of  BCWP,  or; 

Schedule  Performance  Index  = (BCWP  - BCWS)  ^ BCWP 
The  Cost  Performance  Index  is  the  difference  between  BCWP  and  ACWP  as  a 
fraction  of  BCVIP,  or: 

Cost  Performance  Index  = (BCWP  - ACWP)  i BCWP 
Note  that  the  Indices  will  be  + 1.0  (most  favorable)  when  BCWS  or  ACWP 
is  zero  or  when  the  BCWP  is  twice  the  value  of  BCi^  or  ACT^P;  both  of  these 
occurrences  are  improbable.  Poor  performance  indices  occur  when  the  BCWP 
falls  below  the  level  of  BCWS  or  the  ACWP  climbs  above  the  BCWP. 


This  program  gives  special  treatment  to  computation  of  performance 

t indices  (and  Estimates  of  Cost  at  Completion)  for  the  1st  three  months 

! 

of  effort  on  program  elements  greater  than  6 months  duration.  The 
purpose  for  this  treatment  is  in  recognition  of  the  fact  that  as  a 
result  of  start-up  efforts  larger  unfavorable  performances  may  be  en- 
countered  regardless  of  a contractors  demonstrated  proficiency.  To 
compute  performance  indices  and  Estimates  of  Cost  at  Completion  based 
on  such  early  subnormal  performance,  when  it  occurs,  would  raise  flags 
prematurely.  To  preclude  this,  the  program  redefines  the  contractor's 
BCWP  by  the  following  formulas: 

1st  Month:  BCWP  = .3  BCWS  + .7  BCWP  (as  reported) 

2nd  Month:  BCWP  = .1  BCWS  + .9  BCWP  (as  reported) 

3rd  Month:  BCT-JP  = .05  BCWS  + .95  BCWP  (as  reported) 

In  the  event  that  the  contractor's  cost  or  schedule  variance  is  unfavor- 
able, as  indicated  by  his  reported  BCWP,  the  above  formulas  will  reduce 
his  apparent  deficit.  Note  that  as  the  effort  on  an  element  approaches 
3 months,  the  reduction  of  the  contractor's  deficit  tends  to  disappear. 
In  the  4th  month,  finally,  he  is  burdened  with  the  full  Impact  of  his 
unfavorable  variance. 

When  that  contractor  reports  no  variances,  the  formulas  will  not 
alter  the  reported  BCWP. 

In  the  same  manner  that  the  program  gives  the  contractor  a 'break' 
when  reporting  early  subpar  performances,  it  tends  to  'disbelieve' 
early  efficiencies  when  the  contractor  reports  ahead  of  schedule  or 
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underrun  cost  performance,  i.e.,  BCWP  > BCWS  or  BCT«/P  > ACWP.  But  the 
formulas  will  also  reduce  to  zero,  on  the  4th  month,  the  extent  of  dis- 
belief. The  effects  of  the  formulas  on  the  reported  BCWP  both  favorable 
and  unfavorable,  are  shown  schematically  in  Figure  3. 

It  should  again  be  stressed  that  the  reformulation  of  the  contractor's 
reported  BCWP  does  not  occur  in  program  elements  that  are  shorter  than 
7 months  in  duration.  In  such  a program  element  the  contractor  is  given 
no  leeway  in  regard  to  his  performance. 

Finally,  reformulated  BCWP  values  are  used  only  for  computation  of 
performance  indices  and  Estimates  of  Cost  at  Completion.  The  reported 
BCWP  is  shown  in  all  tables,  which  will  be  discussed  laf^r  in  this  report. 


Cost  Performance  Index  3-Month  Moving  Average  Graph 

When  the  contract  effort  reaches  3 months,  this  graph  shows  the 

trend  of  the  .Cost  Performance  Index,  of  Individual  program  elements  and 

the  total  program,  by  averaging  the  values  of  the  index  over  the  previous 

three  months.  Tlie  3-month  moving  average  of  the  Cost  Performance  Index 

2 

is  a statistic  that  is  not  usually  discussed  in  CS  circles  and  this 
graph  is  provided  for  the  casual  interest  of  the  users.  In  certain 
instances  it  may  provide  a special  insight  to  the  progress  of  the 
program.  This  graph  is  also  omitted  when  variable  KEYl  = 0. 


The  Summary  Graph 

The  fourth  graph  provided  in  the  output,  again  for  each  program 
element  and  the  total  program,  plots  the  cumulative  BCWS,  BCWP  and 
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CONTRACTOR  BEHIND 
SCHEDULE 


A BCWS 

• BCWP(  AS  REPORTED) 

X BCWP  (AS  FORMULATED) 


MONTHS  IN  PROGRESS 

Flj?.  3 Schematic  Drawing  Showing  Relationship  Between 
Reported  and  Formulated  BCWP 
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j^£2L: 


ACWP  dollar  values  against  time  in  months  that  the  effort  has  progressed. 
The  complete  schedule,  cumulative  BCWS,  is  shown  from  first  month  to 
last  month.  In  the  event  that  BCWP  and  ACWP  are  very  close  in  value, 
the  graph  prints  the  code  letter  A (ACWP)  preferentially  and  suppresses 
the  printing  of  code  letter  P (BCWP).  This  graph  is  structured  and 
printed  by  SUBROUTINE  GRAPH  and  may  be  omitted  by  setting  variable 
KEY2  = 0. 

The  Variance  Analysis  Graph 

One  of  the  key  graphs  in  the  output  of  this  program  is  the  variance 
analysis  graph.  No  option  is  provided  for  eliminating  this  graph  which 
is  structured  and  printed  from  SUBROUTINE  TREND.  The  format  of  the  graph 
is  Favorable/Unfavorable  (performance  in  dollars)  vs  calendar  Month/Year 
and  it  tracks  the  progress  of  the  dollar  schedule  and  cost  variances  of 
the  total  program  (all  elements  summarized) . The  base  line  of  per- 
formance (zero  dollars)  is  the  sum  of  all  the  program  element  BCV'/P's 
and  the  cost  and  schedule  variances  are  measured  and  plotted  against 
this  base  line. 

This  graph  presents  an  excellent  overview  of  the  progress  of  the 

2 

contractor's  effort  on  the  overall  program.  While  this  CS  computer 
program  was  conceived  and  generated  prior  to  the  existence  of  the  US 
Army  Materiel  Development  and  Readiness  Command  (DARCOM) , this  graph 
very  nearly  fulfills  the  DARCOM  Review  and  Command  Assessment  of  Projects 

3 

(RECAP)  requirement  for  the  "Contractor  Cost/Schedule  Variance 
Trends " chart,  a sample  of  which  is  shown  on  page  A- 36  of  the 
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referenced  publication.  The  various  parameters  shown  in  the  Variance 


Analysis  graph  are  discussed  below. 

Cost  Variance  - The  difference,  in  dollars,  between  the  BCWP  and 
ACWP , or : 

Cost  Variance  = BCWP  - ACWP. 

The  cost  variance  is  also  expressed  in  % by: 

Cost  Variance  (%)  = Cost  Variance  (dollars)  i BCWP 
Schedule  Variance  - The  difference  in  dollars  between  BCWP  and 
BCWS,  or: 

Schedule  Variance  ($)  = BCWP  - BCWS. 

Schedule  Variance  is  also  expressed  in  % by: 

Schedule  Variance  (%)  = Schedule  Variance  ($)  t BCWS. 

Schedule  Variance  in  Weeks  - This  parameter  is  a conversion  of  the 
schedule  variance  in  dollars  into  time.  The  time  factor  is  based  on  the 
BCWP  experience  of  the  contractor  over  approxiamtely  4 months.  It  is 
computed  from  the  following; 

Schedule  Variance (weeks)  = Schedule  Variance (dollars)  t BCWP(avg) 
Where:  BCWP(avg)  = Cumulative  current  BCWP  - Cumulative  BCWP 

3 months  previous  to  the  current 
month  T number  of  weeks  in  the  current 
and  2 previous  reporting  periods. 

Other  Parameters  - In  addition  to  printing  the  progression  of 
dollar  schedule  and  cost  variances  in  symbolic  form  (S  or  C) , the  graph 
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displays  the  cumulative  schedule  and  cost  dollar  variances  and  percent 
variances  through  the  current  month.  Negative  values  reflect  unfavorable 
variances.  Finally,  for  informational  purposes  solely,  original  and 
current  contract  costs  and  government  and  contractor  Estimates  of  Cost 
at  Completion  - taken  from  other  sections  of  the  computer  program,  are 
printed  above  the  variance  graph.  The  current  contract  cost  shown  on 
the  variance  graph  may  differ  from  the  original  contract  cost  as  a 
result  of  changes  occurring  during  the  life  of  the  contract  (changes 
of  scope,  etc.).  Input  data  will  reflect  these  changes  in  the  form  of 
higher  element  budgets  or  new  program  elements.  The  computer  program 
will  track  these  changes  and  display  the  new  total  on  the  variance 
graph. 

The  user  does  not  have  control  of  the  limits  of  the  axes  of  the 
variance  graph.  The  Y axis  (dollars)  extremes  are  fixed  by  the  level 
of  the  schedule  or  cost  variance.  The  X axis  (calendar  months/years) 
minima  is  1 month  prior  to  the  start  of  the  contract  effort  (from  input 
data)  and  extends  for  a 15  month  period. 

2 

Cumulative  CS  Data  Table 

2 

Table  1 of  the  output  provides  a summary  of  the  CS  data  for  the 
current  reporting  period  and  the  computed  cost  and  schedule  variances. 
Eac’.i  program  element  and  the  summary  of  all  the  elements  is  treated. 

The  variances  shown  for  the  over-all  program  "All  Elements"  are  those 
printed  on  the  variance  graph.  Negative  values  designate  unfavorable 
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situations.  Information  regarding  management  reserve  funds  is  shown 
at  the  bottom  of  the  tabulation. 

Flagged  Variances  Table 

In  order  to  highlight  significant  tesults,  both  favorable  and  un- 
favorable, the  computer  program  selectively  prints,  in  Table  2 of  the 
output,  any  cost  or  schedule  variance  percent  that  is  greater  than  +10% 
or  less  than  -10%.  Similar  guidelines  are  applied  to  contractor  and 
Government  Estimates  of  Cost  at  Completion  where  the  program  element 
budget  is  used  as  the  baseline.  The  source  of  the  government  estimate 
at  completion  will  be  discussed  separately  in  connection  with  Table  3 
output. 

With  the  Office  of  PM  Selected  Ammunition  special  attention  is 

2 

given  to  the  output  in  Table  2.  Persons  responsible  for  tracking  CS 
information  on  contracts  under  the  purview  of  PMSA  must  specifically 
address  the  causes  for  variances  or  estimates  of  cost  falling  outside 
of  the  + 10%  guidelines.  This  procedure  allows  the  Project  Manager  to 
be  fully  and  continuously  aware  of  potential  cost  problems.  Favorable 
results,  while  desirable,  also  require  explanation.  Contrary  to  the 
popular  maxim,  the  proverbial  "gift  horse"  must  be  fully  examined. 

The  10%  guideline  may  be  altered  as  desired.  The  controlling 
statement  appears  in  SUBROUTINE  TABLES  starting  2 lines  below  Statement 
Label  2.  See  Appendix  B. 
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Cost  at  Completion  Estimates  Table 

The  output  in  Table  3 consists  of  Estimates  of  Cost  at  Completion 
computed  by  various  methods. 

Estimates  based  on: 

Cost  Variance  = Element  Budget  t Cost  Variance  % 

Schedule  Variance  = Element  Budget  t Schedule  Variance  % 

Cost  and  Schedule  = Element  Budget  r Multiple  of  Cost  and 

Variance  Schedule  Variance  % 

Trend  of  Cost  = Element  Budget  t Average  Cost  Variance  % of 
Variance  3 previous  report  periods 


Average  of 
Variance 


= Summ  of  above  variances  t 4 


Contractor  Estimate  of  Cost  at  Comoletion  is  input  data. 

2 

DARCOM  CS  procedures  dictate  the  need  for  developing  a government 
estimate  at  completion.  The  requirement  is  correctly  based  on  the 
idea  that  a contractor's  estimate  at  completion  should  be  at  all  times 
open  to  question.  Many  techniques  are  available  for  forming  an  inde- 
pendent estimate.  An  excellent  overview  of  these  techniques  is  pro- 
vided by  a DSMS  Research  Report^.  Most  are  statistical  and/or  histor- 
ical in  nature  and  complex  techniques  are  also  available.  The  pro- 
cedure to  obtain  this  number  in  many  instances  remains  at  the  discretion 

2 

of  the  government's  CS  'er. 

The  cost  and  schedule  variance  estimates  discussed  at  the  beginning 
of  this  section  are  standard  techniques  that  are  historical  in  nature; 
the  contractor's  past  performance  rigidly  defines  his  future  performance. 
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The  cost  and  schedule  variance  estimate  and  trend  of  cost  variance 


estimate  are  subject  to  the  same  qualification.  This  program  provides 
all  the  variance-based  estimates,  including  their  average,  and  a 
potential  user  may  prefer  one  or  the  other.  The  Office  of  the  Project 
Manager  for  Selected  Ammunition,  for  whom  this  computer  program  was 
written,  uses  the  Bayesian  technique  for  formulating  its  Government 
Estimate  Cost  at  Completion. 


Bayesian  Forecastinf 


The  Bayesian  Approach  for  forecasting  the  estimate  at  completion 
can  be  described  most  succinctly  as  a method  to  improve  predictions 
using  objective  managerial  judgement  in  conjunction  with  historical 
performance.  It  accomplishes  this  by  calculating  an  ensuing  proba- 
bility from  an  assumed  prior  probability  and  applying  this  calculation 
to  current  data  to  derive  its  forecast  of  completion  cost.  However, 
no  Bayesian  estimate  is  derived  for  any  program  element  that  is  less 
than  3 months  old.  This  occurs  because  the  Bayesian  estimate  requires 
values  of  the  standard  deviation  of  the  dispersion  of  the  ACWP  and 
the  contractor's  Estimate  at  Completion  and  no  values  are  formulated 
until  adequate  data  is  available.  (The  Bayesian  technique  also  allows 
for  an  estimate  of  these  values  for  earlier  forecasts  - but  this  option 


has  not  been  written  into  the  computer  program.) 

The  mathematics  of  the  technique  are  adequately  described  in  the 
referenced  report.  The  Bayesian  technique  equations  are  relatively 
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2 

simple  to  manipulate;  it  uses  only  the  CS  input  data  which  has  been 
dealt  with  throughout  this  report;  and  over  several  years  of  use  by 
this  office  its  forecast  has  proven  to  be  most  reasonable. 
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PROGRAM  COSH  INPUT, OUTPUT) 

COMMON/A/UCMS (^0 ) , B CMP ( 2u , ) • ACWP ( 2C , 2Q ) , E AC ( 20 , 20 ) , KE Yl, K 
C0MN0N/B/LM(2C ) ,N(20 ) , IPM(2a ) , TCc ( 20 , 2 C ) , 0 A1 , OA2 ,HA, MTU, MRC* WK 
C0MH0N/C/SV0(23,2G), SVP(2C ,20) ,CVO (20 , 20 ,CVP(20,20) 
COHHON/0/X(2G ) , XI (20 ) , YS ( 2 u ) , Y A( 2 G ) , Y P (cC  > 

COMMON/£/NC,NP,NT,NOM, GTa,T8(2G) , HTN, I YR, I YRl , I Y R2 ,UB,GA,GA1 
COMMON/F/FCCT (20,20) ,FCCY (20,20) ,FCSV ( 2C,20) ,FCSC (20, 20) 
C0MH0N/G/CPK2C,  2C  ),  SP I ( 20 , 20)  ,PL OTA ( 2 U , 20  ),  TRtiNB  ( 20 , 2C ) , 
♦OCTC, NAHE(h,20 ) ,PLOTS(20 ,2Q) , PLOT C (20 , 20) 

COMMON /H/d AY (2 0,20) , C£ AC (20 , 20 ) , ECT 
COMMCN/I/U£(20 ),PC(20) , FACT ( 20 ), DUMMY ( 20) 

COMON/J/CBCMS  ,CaCM?  ,C  ACMP , CCV  ,C S V ,CGTB,C£ST,K£Y3 
C 

C KEY3  IS  VARIABLE  TC  SIGNIFY  EXISTENCE  OF  RELATED  EFFORT  DATA. 

C IF  RELATED  EFFORT  EXISTS  SET  KEY3=1.  OTHERHISE,  KEY3=0. 

READ  4,KEY3 
4 FORMAT(Il) 

C 

IF  (KEY3.EQ.0  )GOTO  18 

C READ  CONTRACTOR  REPORT  DATA  FOR  INCLUSION  IN  IN-HOUSE  SUMMARY, 

C FOR  CONTRACTOR  CS2  RUN  THESE  VAlUES  ARE  0 (ZERO). 

READ  16,CBCWS, C8CWP, CACMP , OC V , CS V , CGT B ,CE ST 

16  FORMAT  (ZFlu.O  ) 

C 

G READ  ORIGINAL  CONTRACT  TARGET  COST 
18  READ  17,OCTC 

17  FORMAT  (FIO  .0) 

C 

C KEY  TO  PREVENT  PRINT  OF  GRAPFS.  SET  K£YI=0  TO  AVERT  PERFORM- 
C ANCE  GRAPH'.  SET  KEY2  = 3 TO  AVERT  CS2  DATA  GRAPHS. 

READ  1 5, KEYl, KEY2 
15  FORMAT (215) 

C 

C INITIALIZE  VARIABLES 
AV=CB=CC=CS=CT=0. 

DO  1 IX=1,20 
DO  1 IY=1,20 

8CMS( IX,IY)=3CMP(IX, IY)=ACWP( IX, IY)=EAC(IX,IY) =M(IX)=0  . 
CPI(IX,IY)=SPI (IX,IY)  = 0AY(IX,IY)=CEAC(  IX, I Y) =T CE ( I X, I Y ) = Q , 

1 FCCTdX,  IY)=FCCV(IX,  lY  |=FCSV  (IX,  lY  )=F  CSC  ( I X , I Y ) =GTa=C  . 

C 

C READ  DATE  OF  REPORT  AND  NO.  OF  MEEKS  IN  THE 
C CURRENT  *■  2 PREVIOUS  RlPORT  PERIODS. 

READ  2,DA1,0A2,MKS 

2 FORMAT(2Alu,F5.0) 

C 

C READ  NUMBER  OF  PROGRAM  ELEMENTS  AS  OF  ABOVE  DATE 
READ  3,NK 

3 FORMAT(I3) 

L 

C READ  1ST  MONTH  AND  YEAR  OF  PROGRAM  (EX.  JANUARY  1975) 

READ  12,HTN,IYR 
12  FORMAT(A10,I4) 


UJ  (/) 


irRlsIYR+l 
IYR2=I  YR4-2 


SET  VARIABLE  AND  NAME  FOR  TOTAL  PROGRAM 
NT=NK+1 

NAME(i,NT)  =10H  TOTAL  PRO 
NAME(2tNT)=4HGRAM 

READ  PROGRAM  NAME  <TO  40  CHARACTERS) 

READ  6,(NAME(IQ,NT+1 ),IQ=1,5) 

FORMAT (5A1C) 

READ  UNOISTRIBUTEO  BUDGET,  G AND  A. 

READ  14,UB,G  /,  GAl 
» FORMAT  OFlli.O) 

READ  ORIGINAL,  PREVIOUS  AMO  CURRENT  MONTH  MANAGEMENT 
RESERVE  BALANCES. 

READ  13,MRC,MRF,MRC 
5 F0RMAT(3I1CI 

MA=MRP-MRC 
MTU=MRO-MRC 

LOCP  OVER  EACH  PROGRAM  ELEMENT 
00  7 NP=1,NK 

initialize  GRAPH  VARIABLES 
IC=0 

00  11  IX  = l,2i) 

X (ix)=o. 

YA(IX)=0. 

YP(IX)=C. 

Y3(IX)=C. 


READ  THE  NAME  OF  PROGRAM  ELEMENT 
READ  5,NAMEC1, NP)  ,NAME (2 ,NP) 
FORMAT (2A1C) 


CHARACTERS  MAX.) 


READ  MONTHS  IN  PROGRESS,  1ST  MONTH, LAST  MONTH, BUDGET 
READ  8 ,M(NF),IFM(NP),LM(NP),TB(NP) 

FORMAT (315, FIO .0) 

SET  ELEMENT  VARIABLES 
MONTH=H(NP) 

N0W=IFM(NP)+M(NP)-1 

IFIRST=IFM(NP» 

LAST=LM(NP) 

GTa=GT34-TB(NP) 


LCCP  OVER  EACH  MONTH  FOR  ELEMENT  NP 
00  9 M1=IFIRST,lAST 
IC=IC*1 
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C RE«0  COST 

READ  1C ,5CRS(NP,M1) » BCWP(NP,M1» , ACWPtNPjMl) , CEACINP,M1) 
iO  FORMAT (4F8 .0) 

C 

C SET  PLOT  POINTS  ANC  COMPUTE  TOTAL  CONTRACTOR  ESTIMATE 
X(IC)=FLOAT(IC) 

YS (IC»=0CWS(NP.M1) 

C 

C SKIP  TO  NE>T  MONTH  IF  BEYOND  CURRENT  MONTH 
IF(M1,GT.NOW»GOTO  9 
C 

C COMPUTE  $/Y.  COST  AND  SCHEDULE  VARIANCES. 

SV0(NP,M1»  =BCMF(NP,M  1) -BCHS(NP,M1» 

SVP(NP,M1»=SV0 (NP,M1 )/8CWStNP,Ml» 

CVC(NP  ,M1)  =aCWP(NP,MU  -ACWFCNP,M1) 

CVP(NP,M1I =CVD (NP,M1)/BCWP(NP,M1I 

c 

C SET  INDEXES 

CALL  INDEX (Ml, IFIRST, LAST, ICI 

G 

C COMPUTE  FINAL  COST  ESTIMATES  EVERY  MONTH 
CALL  FINAL (Ml, IFIRST , A V, C3 , CC, CS, CT» 

C 

C SET  FINAL  ESTIM.  VARIABLES  EACH  MONTH 
FCCT(NF,M1)=CT 
FCCV(NP,Mll=CC 
FCSV(NP,M1 )=CS 
FCSC(NP,M1)=DB 
EAC(NP,M1) =AV 
C 

C SET  Plot  POINTS  FOR  COSTS  GRAPH 
YP(IC)=BCNPCNP,M1) 

YA(IC)=ACWP(NP,M1» 

NC  = IC 

XI (IC>  =FLOAT( IC) 

G 

C LOOP  BACK  TO  NEXT  MONTHS  DATA 
^ CONTINUE 

G 

C DRAW  COSTS  GRAPH  FOR  THIS  ELEMENT 
CALL  GRAPH(IC) 

C 

C LOOP  BACK  TO  NEXT  PROGRAM  ELEMENT. 

7 CONTINUE 

C 

C COMPUTE  TOTAL  PROGRAM  VALUES. 

CALL  ALLEL (NK, SVW) 

C 

C COMPUTE  3AYESIAN  ESTIMATE  FOR  ALL  ELEMENTS  AND  TOTAL  PROGRAM. 

call  BAYES 
C 

C GO^'PUTE  ANC  GRAPH  VARIANCE  TRENDS 
call  TREN0S(5VV«) 

C 

C PRINT  TABULAR  DATA 
CALL  TABLES 
C 

END 
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OUTINE  ALLEUNK,  SVWI 

0N/A/BCWS<aC«2G) «3CMP (20,20) , ACWP (20, 2o) , £AC (20, 20 ) , KEYl, KEV 2 
0N/8/LH(2(i  »,M(20)  ,IFM(20),TC£  (20,  20 ) , 0 Al , D A2  , MA,  MTU,  MRC,  WK  S 
0M/C/SV0(2U,2G)  , S)/P(20,2  0)  ,CV0(2C,  20  ,CtfP(20,20> 

ON/O/X (20) ,X1(20 I , YS(20) , Y A(20 ),yP(20 I 

ON/E/NG,NP,NT,NOrf,GT8,T8(20) ,HTN, I YR, I YRl , I YR2 ,UB , GA , G Ai 
iON/F/FCCT(20 ,20) ,FCCV (2C,2C) ,FCSV ( 20 . 23) , FCSC (20 » 20) 
ION/G/CPI(20,20  ,SPI(20,20)  , PLOTA  ( 2 0 ,20  ) , TRENO ( 20 » 20  , 
:,NAHE(it,20)  ,PLOTS(20 ,20)  ,PLOTC(20 , 20 
ION/K/8AY(20,20) , CE AC ( 20 , 20 ) , ECT 

GT3+UB+GA 

IGEST  ELEMENT  AMD  OLDEST  ELEMENT 
i=LM(l) 

;=M(i) 

. IX=2,NK 

i(IX)  ,LE.JBIG)GOTO  4 
i=  M ( I X ) 

.M(IX),LE.ieiG)GOTO  1 

; = LM(  IX) 

riNUE 

OF  PLOT  POINTS 
T)=JBIG 
MT)=ibIG 

THLY  COST  ELEMENTS 

2 IY=l,iaiG 
IC*1 

C)=FLOAT(IC) 

3 IX=1,NK 

IY.LE.LM(IX))GOTO  5 
S(IX,IY)s8CNS(IX,LH(IX)  ) 

P(IX,IY)=8ChP(IX,LM(IX>) 

P(IX,IY)=ACWP(IX,LM  (IX)) 

C(  IX,  IY)  = ACMP (IX, LM (IX)  ) 

S (NT, IY)=dChS(NT, lY) ♦8CWS (IX, I Y) 

P(NT,  IV)=3CWP(NT,  lY)  fflCWPdX,  lY) 
P(NT,IY)=ACWP(Nr,IY)+ACWP(IX,IY) 

(NT  ,IY)=TCE(NT,IY)4-C£AC(IX,IY) 

TINUE 

r POINTS  FOR  COST  GRAPH 
lo  I -tfCMSCNT ,IY) 

• T h.nTH  if  dEYONO  CURRENT  MONTH. 

' . r .N .rtl GOTO  2 

•.r  ♦ J.  COST  GRAPH 

.lY) 

■ * >»T  . * «■) 


U 

C COMPUTE  DOLLAR  AND  V.  COST/SCHEOULE  VARIANCES 
SV0(NT,IY) =8CWP(NT, I VI -BCWSCNT.IY ) 

SVP(NT  ,IY)=SVO (NT.IYl/aCMS(NT,IY) 
CVUiNT,lTi=BCWF{NT, IY» -ACHPtNT, lY) 
CVF(NT,IY)=CVO(NT,IY 1/ BCWP (NT, lY » 

C 

C SET  NP  INDEX  FCR  TOTAL  PROGRAM 
NP  = NT 

Td(NTl =GT8 
C 

C COMPUTE  INDEXES. 

CALL  INDEX <IY , i ,IBIG,IC) 

C COMPUTE  FINAL  COST  ESTIMATES 

CALL  FINAL(ir,l,AV,CB,  CC,CS,CT) 

FCCKNT,  IYJ=CT 
FCCV(NT, IY)=CC 
FCSVINT, IY)=CS 
FCSC(NT, IY»=CB 
EAC(NT,IY)=AV 
C 

2 CONTINUE 

CALL  GRAPHdCJ 
C 

C COMPUTE  SCHEDULE  VARIANCE  IN  WEEKS 

VP W=( BCWP (NT, NOW! -BCWP (NT, NOW -3) ) /WKS 
SVW= (3CWP( NT, NOW )- BC WS ( NT , NOW ») / VPW 
RETURN 
END 
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SUBROUTINE  BAYES 

COMMCN/A/S(23  t 2D) ,P(20 ,2u I t A(2a«20I.E(2C«23) tKEYlfK£Y2 
COMMON /B/L  (20  ) .H  (20  tl  (2w)  »TCE(2Q  >2Q)  » OAl « 0A2 « MA«  MTU  t MRC  t WKS 
COHMON/t/NC»NP.NT,NOH,GrB»T8(20) tHTN« lYR* I YRl t IYR2 *UB « GA * G A1 
COMMON/F/FCCT (20«20) ♦FCCV(20,20) , FCSV ( 20, 20) , FCSC (20 f 20) 
COMMON/G/CPI (20,2D),SPI(20 ,20) ,PL OTA ( 20 , 20 ) , TREND (20, 20 ) , 
♦OCTC,NAME(h,2C ) .PLOTS (20, 20) ,PLOTC (20 ,20) 

COHMON/H/BAY(20,20) , C£ AC (2C , 20 ) , ECT 
DIMENSION  F(20,20) 

INITIALIZE  VARAIBLE  FRACO.FRACA 
FRACO=FRACA=0 . 

C SET  INDEX  FOR  LAST  3 MOS. 

IZ=NCW-2 

C LOOP  OVER  EACH  ELEMENT  AND  THE  TOTAL  PROGRAM 
DO  1 IX=1,NT 

C IF  ELEMENT  IS  NOT  3 MOS.  OLD  SKIP  TO  NEXT  ELEMENT 
IF(M(IX)  ,LE.2)G0T0  1 
C INITIALIZE  SUMS 
SUM1=SUM2=S. 

C LOOP  OVER  LAST  3 MCS. 

DO  2 IY=IZ,NOH 
IF  (IX,  NE. NT)  GOTO  5 
TC£(IX,IY)=TC£ (IX,IY) ♦UB*GA 
IF(TCE  (IX.IY)  , £(J,UB<-GA)TCE(IX,IY)  =0. 

CEACdX,  IY)=TCE(IX,IY) 

C IF  CONTRACTOR  DOES  NOT  SLPPLY  EAC-USE  AVERAGE  VALUE  FROM  FINAL 
5 F(IX, IY)=C£AC ( IX.IY) 

IF (C£ AC (IX.IY ) .EQ.FCCV (IX.IY) .OR.CEAC (IX.IY) . £Q. FCSV ( I X, I Y ) . 
♦ CcACdX,  IY),£Q.O,  )F(  IX  ,IY)=E(IX,  lY) 

C BAYES  COMPUTATIONS  START 

SUM1=SUM1+ABS(PL0TC(IX,IY) )**2. 

2 SUM2=SUM2+ABS ( ( ( T8 (I X) -F ( I X , I Y ) ) /TB(I X ) ) ) **2 . 

IF(SUM1.LE.0. ) GOTO  3 

FRACA  = SQRT  (SUMl/  3.) 

3 IF(SUM2.LE,U. ) GOTO  4 
FRACO=SQRT  (SUM2/3.) 

C LIMIT  ESTIMATE  IN  1ST  3 MOS.  TO  5*/.  OF  BUDGET 

4 IF(MdX)  .E0.3.  ANO.FRACO.LT,.05)FRACO=,05 
CSQ=(  TBdX)/P(  IX.NOW))  **2. 

SIGA2= (FRACA*A  (IX, NOW) )**2. 

SIG02=(FRAC0*T6(IX) )**2, 

C BAYESIAN  FINAL  ESTIMATED  COST  NOW  COMPUTED 

BAY(IX,NOW)  = ((  SQRT(CSQ)*A  dX.NOW)  *SIG02)» 

♦ (T3(IX)*CS0*SIGA2) )/(SIG02+CSQ*SIGA2) 

C LOOP  TO  NEXT  ELEMENT 
1 CONTINLE 

RETURN 
END 
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SUBROUTINE  FiNALd  iJ«A  V,CB«CCtCS*  CTI 

CCNHON/E/NC«NP,NTtNOHtGTi)tTB(20)  »HTN«  lYR,  ITRl  * 1VR2  »UBtGA*  GAl 
CONMON/G/CPI(20»20)f SPIf20  »20 ) tPL OTA ( 23 »20 ) » TREND (20 > 2 0 ) » 
♦OCTC,NAME(4«20)fPLOTS(20t2D) tPLOTC(20»2C) 

C 

IF(NP.EQ.NT)TB(NPI=GTB 
C INITIALIZE  VARIABLES 

K£Y=CB=CC=CS=CT=0. 

C 

C SET  KEY  IF  AVER.  E ST  OEPENOS  ON  4 VALUES. 

IF(I-J.GE.2»  KEY=1 
IF(KEY.tQ. OIGOTO  7 
C 

C COMPUTE  COST  TREND  IF  ELEMENT  IS  OLDER  THAN  2 MOS. 

CT=TB(NP»/TRENO(NP.l I 
C 

C COMPUTE  OTHER  FINAL  ESTIMATES 
7 CC=TB(NPI/CPI( >P,I) 

CS=TB(NP»/SPI(KP,II 
C3=TB(NP»/  (SPI(NP,:i  *CPI  <NP,  in 

U 

C COMPUTE  AVERAGE  OF  ESTIMATES 

IF(KEY  .EQ.O)  AV  = (CB*CC*CS)  /3. 

IF (KEY.EQ. 1) AV=(CB+CC>CS+CT» /4. 

RETURN 

END 


SUBROUTINE  GRAPH(IC) 

COMMON/A/S (20 . 2b) ,P(20 ,20) .A(2Q«20) tE(2Ct2?) t KEVl.KETE 
COMMON/8/LM(20),M(20 ) , IFM ( 20 ) , TCE ( 20, 20 ) , 0 Al, DA2 , MA, M TU, MRC, MKS 
CCHMON/O/X  (20)  ,X 1( 20  ) , YS ( 2 0 ) , Y A( 20 ) , Y P (20 ) 
C0MM0N/E/NC,NP,NT,N0M,GT8,0UM4(27) 

COHHON/G/OUN(16CO) ,0CTC, NAME (4, 20 ) ,8UN5(80C) 

IF (KEY  2. EQ.O) RETURN 
8IG=S(NP,LM(NP)> 

IF(P(NP,N0W).GT.8IG) 3IG=P( NP,NOM) 

IF (A (NP,NOW) . GT. BIG) 3IG= A(NP,NOW) 

IF(8IG.LE. ICO) IG=IFIX(8IG/ia .»*10+13 

IF  (8IG.GT.luO.  .AN0.8IG.Lc.  10  00.)  IG=IFIX(8IG/10Q.  )«100'»100 
IF  (8IG.GT.  100  0 . .AN0.8IG.LE.  lOCOO  . ) IG=IFIX  ( 8IG/100C  .)« IOC  0«- 1000 
IF (8IG.GT.100QC. .AND .BIG.LE. lOCOOO  .) 

«-IG  = IFIX(BIG/10uOO.)«  10  00a410000 
IF (8IG.GT.1000CG ..ANO.BIG.LE.IOOOGCO. ) 

4- IG=I  FIX  (BIG/10  3000  .)  *100000  4-10300  0 
IF(8IG.GT.10C00C0. .ANO.8IG.LE.1000C00C.) 

4lG  = IFIX(8IG/luuC000. ) * 10 0 0 0 30 4103 0 300 
DY=FLOAT (IG) 

ox=o. 

IF(IC/6*8.tQ.  lOGOTO  13 
IM=IC44 

IF (IM/8*8.EQ. IM)GOTO  14 
IF(IN.LT.8)0X=8. 

IF  (IM.GT.8.AN0.IM.LT.16)0X=16. 

IF (IN. GT. 16. AND.IM.LT.24)0X=24. 

IF(IM.GT.24.ANC.IM.LT. 32)0X=32. 

GOTO  15 

14  OX=FLOAT(IM) 

GOTO  15 

13  DX=FLOAT(IC) 

15  OY=OY/8. 

0X=0X/8. 

CALL  PLOT(2.,l .5,-43) 

CALL  SCALE(X,IC,1,8.,C.,CX,1) 

CALL  SCALE (X1,NC,1,8 ., O.fOX, 1) 

CALL  SCALE(YS,IC,1,8.,0.,OY,1) 

CALL  SCALE(YP,NC,1,8., 0.,OY,1) 

CALL  SCALE(YA,NC,1,8.,0.,OY,1) 

CALL  AXIS(Q.,C  .,15HTIME  - MONTH  S ,15  ,«.,  0 .,  0 .,  DX ) 

CALL  AXIS(C.,0  .,16HC0ST  - DOLL  A RS,1 6 , 6. , 90 . , 0. , OY) 

CALL  LINE(X,YS,IC, 1,54, . 07,1  ) 

CALL  LINE(X1,YP,NC, 1,47, .07,  1) 

CALL  LINE(X1, YA,NC,1,21, .07, 1) 

CALL  SYM80L(8.  ,6.,1H4,  1,.07,0.) 

CALL  S YM80L(S. 5,3. ,7H»  BCWS , 7 , . 0 7 , 0 . ) 

CALL  SYHOOLO  . 5,2.9,  7HP  8CMP  , 7,  . 0 7,  0 . ) 

CALL  SYMBOL(8.5,2.8,7HA  ACWP,7, . 07,0 . ) 

CALL  SYMB0L(8. 25,3.25,NAME(1,NP) ,10,. 07,0.) 
call  SYMBOL (9. 25,3.25, NAME (2 ,NP) , 1.,. 07,0 . ) 
call  PL0T(8.,C  .,3) 

CAlL  PL0T( 8. , 3 .,2) 

CALL  PLOT(U. ,8.  ,2) 

CALL  PLOT(  0.,  0 .,-3) 

RETURN 

ENO 
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SUBROUTINE  INDEX (I , J ,K t I C » 

CONNON/A/S<2J«EG)»P(20i2i}) . A(23.  20 ) *£  ( 20*  2 G)  « KelYI , KEY2 
COMHON/B/LH(20) «H(2a l«IFM(20  t *TCE ( 20 « 20  I . 0 A1 * 0 A2 , H A* H TU, H RC*  NKS 
COMMON/E /NC»  NP ,NT*N0W«  GT8*TB(2C) * HTN* I Y R, I YRi , I Y R2 * UB , GA * G A1 
COMMON /G/C PI (2 0, 2C ),SPI (20*20) ,PL 0TA( 20  * 20 ) * T RENO ( 20  * 2C  ) * 

♦ OCTC* NAME ( 4*20 )* PLOTS! 20 .20) *PLOTC(20  « 20 
OD'ENSION  W(2G  *20)  *Y  (20)  *X  (20)  * 

♦ YC(20) ,YS(20) *Xl(2a>  *XZ(2) ,Y2(2) 

INITIALIZE  X VALUES. 

IF (I.N£. J)G0T0  a 
10=0 

DO  9 IX=1*20 
Y(IX)=G. 

X(IX)=C.  ' 

ELEMENTS  SHORTER  THAN  7 MOS.  TOTAL  OR  OLDER 
THAN  k MONTHS  OURATICN  MILL  NOT  HAVE  ADJUSTED  INDEXES. 
IFU-J-H.LE.6)  GOTO  1 
IF  (I-J.GE.DGOTO  1 

LOOP  TO  SET  aCMS  OR  BCWP  TO  NEM  VARIABLE  (W) 

DO  2 IX=1,2 

IF  (P(NP* I) .£0. C.)GOTO  2 
W(NP,I)  = S(NP*I) 

IF (IX. Ea.2)H(NP* I)=A  (NP* I) 

IFd.EQ.  JIPP=,3*W(NP,I)*.7*P(NP*I) 

IF(I.EQ.J-H)PP  = . 1*M(NP  ,1)  *.9*P(NP*1) 

IF (I.EQ. J+2)PP=.05*H (NP* I)*.95*P (NP*I) 

IF(PP.EQ.O.)GOTO  2 

COMPUTE  SPI*  CPI  AND  SET  PLOT  POINTS  FOR  GRAPH  (1ST  A MOS.) 
G0T0(3*4) IX 
SPI (NP  *I)=PP/M (NP*I) 

PLOTS(NP* I)=(PP-M(NP*I ) ) /PP 
YS(IC)=PLOTS(NP*I) 

GOTO  2 

CPKNP  *I)  = FP/W  (NP,I) 

PLOTC(NP*I)=(PP-M(NP*I) )/PP 
YC(IC)=PLOTC(NF*I) 

LOOP  BACK  TO  IX=2 
CONTINUE 

COMPUTE  3 MO.  CPI  TREND  AND  SET  PLOT  POINTS  (1ST  A MOS.) 

IF  (I-J.LT.2)G0  TO  5 
IO=IO*l 

PLOTA (NP*I ) = (PLOTC(NP* 1-2  M-PLOTC ( NP* I-l ) fPLOTC ( NP * I) ) /3. 
TRENO(NP,I)  = (CPI  (NP*  1-2)  «-CPI  (NP*  I -1)  ♦•CPI  (NP*I)  )/3. 
Y(IO)=PLOTA(NP,I) 

X ( ID)  =FLOAT(IC) 

XI (IC)=FL0AT (IC) 

GOTO  6 
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C COMPUTE  INDEXES  AND  JET  PLOT  POINTS  FOR  GRAPH  (STARTING  5TH  MO.» 


1 SPI(NP,I»  = P(NP,I! /S(NP,I) 

PLCTS(NP,I)  = (P  (NI-,  II  -S  (NP,in/P(NP,I) 

YSCIC»=PLOTS«NP»;  i 
CPI(NP,I»=P(NP,i:  /A(NP,I) 

PLCTC  (NP,I  )=IP  (N(  ,11  -A  (NP,II  l/P<NP,I) 

YC(IC>=PLOTC(NP,;  » 

PLOTA(^4P,  I)  = (PLOVC(NP,  1-2 ) ♦PL OTC  ( NP,  I -1)  ♦PLOTC  (NP,  I) » /3. 
T-^ENO  INP,I)  = (CPI  (NP,  1-2)  ♦CPI  CNP,  I -1  )^CPI  <NP,  1 1) /3  . 
I0=I0^1 

Y(IO)=olOTA(NF,I» 

X( IO)=FLOAT(IC» 

XI (IC)=FLOAT( IC) 

C 

C PLCT  GRAPHS  WHEN  NOW  MONTH  IS  REACHED 

6 IF(I.  N£.NOW)RcTU  (N 
IF(KEYl.EQ.O) RET  iRN 
XZ (1) =¥Z (1)=YZ  (2  -0. 

XZ  (2)  =24. 

PRINT  14.NAME  (1,1'P)  , NAME<2,NP) 

14  FORMAT (IHl ,////////////////////////////// 3 3X, 

♦•THE  FCLLOWING  GRAPHS  RELATE  TO  PROGRAM  ELEMENT  *,2A1C) 
00  12  IX=1,3 
CALL  PL0T(2., 2 .5,-43  ) 

IFdX.GT.DGOTO  33 

call  SCALE(X,IC,  .,3.,>}.,3.,i) 

call  SCALE(X1, IC  1,8. , a. ,3  1) 

CALL  SCALE(XZ,2,: ,8.,0 .,3.,ll 
CALL  SCALE(YZ,2,1,4.,*1.,0.5,1) 

CALL  SCALE<y, 1C, 1,4. ,-l. ,0.5,1) 

CALL  SCAL£(YS,IC,l,4.,-l.,b.5,l) 

CALL  SCALE(YC,  ]C , 1 , 4 ., -1 . ,0 . 5, 1) 

13  CALL  LINE(XZ,YZ, 2, 1,2(1  ,.07,0) 

CALL  AXIS(D.,0.,0.,0,4.,90.,-1., .5) 

CALL  SYMBOL (1.  ,l ., 1H3, 1,  .07, C.) 

CALL  SYH30L(2. ,G.,1H evl,.07,0.) 

CALL  SYM30L(3.  ,0.,lH9rl,.07,0.) 
call  SYMB0L(4.  ,i.,  2H  12,2,.  L 7,0.) 

CALL  SYHB0L(5.  ,0.,2H15.2,.i)7,0.) 

CALL  SYMBOL(6.,0.  2H 16 , 2 , . 07 , 0 . ) 

CALL  SYMBOL(7..0.  2H21,2,.D7,0.) 

CALL  SYMBOL (8 . ,0 . . 2H 24 , 2 , . 0 7 , 0 . ) 

CALL  SYMBOL (-1 .252.7, 9HF A VO RABL E , 9, . 07,90 . ) 

CALL  SYMBOL(-1.25  . 1 , 1 IHUNF A VORABLE, 1 1 , . Q 7 , 90 . ) 

CALL  SYMBOLO  . i,18HM0NTHS  IN  PROGRE  SS,  1 8,  . 0 7,0  . ) 
GOTO(10,11,7) IX 

7 call  LINEIX,Y,ID,'.,2C,  .07,1) 

CALL  SYMBOL(o.  ,4. 1,22H3  MONTH  MOVING  AVERAGE, 22, . 07,0 . I 
CALL  S YM30L(5>  . ,3.  ),22PC0ST  PERFORMANCE  INDEX,  22,  ,07,0  , ) 
CALL  SYMBOL  (o  . ,3 . 3 , N AME  ( 1 , NP ) ,13,  .07,  0 . ) 

CALL  SYM30L(7.  , 3 . } , N AH £( 2 , NP ) , 10 , . 0 7, 3 .) 

CALL  PLOT(  :.,  0 ) 
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GOTO  12 

CALL  ‘.INE(Xl»YS*IC«it20.. 07*11 

CALL  SYHBOLIS.4t4.0»26HSCHEOULE  PERFORMANCc  INDEX* 26* .07* 0 . ' 
CALL  SYMBOL  (la.  *3. 6*  NAME  (1  * NP)  * 1C  * . C7*  0 .) 

CALL  SYMBOL (7 . *3 . 8 .NAME (2 *NP » , 1C  * .C7*0.} 

CALL  »LOT(0.*0  ..-31 

GOTO  12 

CALL  .INE(X1.YC. 10.1*20*. 07,1) 

CALL  SYMBOLiG. *4.0*22HCOST  PERFORMANCE  INO £X* 22* .0 7. 0 . ) 

CALL  '>YMBOL(G.  .3 . 8 « NAME (1  * NPl  * 1C*  .07*0.) 

CALL  >YH30L(7. .3.8 . NAME (2  * NP > , 10  * .07*0.) 
call  ’LOTia.,0.,-3) 

CO  MI  (UE 
RETUR  ( 

ENO 
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SUBROUTINE  TA9L  :S 

COKMON/A/BCWS (2  l,2u)  >BCHP (20*20)  * ACHPI20.20) *£AC(20*20) * KEY1*KEY2 
CONMON/8/LH(2 j ) H(Z3 ) «IFM(20 )«TCE (20*  20) * OAl* OA2* HA, HTU* NRCtXKS 
C0HM0N/C/SV0(2C  . 20  )*  SVP  (2 0 ,20 ) *C VO  (20  * 20  * CVP ( 20  * 23) 
COHMON/E/NC,NP*  H .NON. GT3,TB (20 ,HTN* lYR, I YRl , I YR2 ,UB , GA* G A1 
COHMON/F/FCCT (2  .23)  ,FCCV(20,20)  ,FCSV ( 2C , 20) , FCSC ( 20 , 20) 
CONHON/G/OUH2u  ( GOO) lOCTC * NAME (4  * 2u) • OUH33  (638  ) 

COMMON/H/BAY  (2  2 20  , C£  AC  (2  b,  20)  , ECT 
COPHON/J/CBCRS,  ;6CWP , C ACMP ,CCV, CS V ,CGT3 ,CEST , KEY  3 
OIPENSION  NK2C  ,CPC  T(  20  ) , GPCT  (20  ) 

C PRINT  TABLES  OF  I NF  iRMA  T 10  N. 

PRINT  50, (NAMt  ( t,NT i 1 ) , IQ=1 ,5) , 0 A1,0 A2 
5C  FORMATdHl,////  '2itX, STABLE  1.  CUMULATIVE  QATA.  PROGRAM  *, 

♦ 4A10,/34X,A10,*  OR  • .2  AlO /////// 17  X,*  ELEMENT*  ,l5X  , «C  T.  *, 

♦ ♦variance*, 7X,*  '.OLLAR  VARIANCE*/!  9X,*NAME*,  15X  ,*BCMS*, 

♦6X ,* JCWP*,6X,* A >P*,6X,*C0ST  SCHEDULE*, 6X, 

♦♦COST  SCHEDUL  .*/// ) 

IF  (KEY3.EQ.O)GO  0 ‘*0 
CHS=CdCMS^BCWS  ( IT, NOW) 

CWP=CBCWP*bCHP  ( IT,  NOW) 

CAW=CACHP*ACWP  ( iT,NOV!) 

CV=CCV+CVO(NT, N W) 

SV-CSV  ♦SVD  (NT,  Ni  M) 

C£=CEST*TC£(NT,i  OH) 

♦O  00  51  N=1,NP 

CVP (N, NOW) =CVP (I , NOW) *100 . 

SVP(N,NOH)  =SVP  ().  ,NOM)  *100. 

IF  (N.EQ.NP)GOTO  51 

PRINT  52,  NAME  ( 1.  N)  , N AME  (2  , N ) , BCWS  (N,NO  H)  , BCWP  (N,  NOW)  , ACHP(N,NOW)  , 
♦CVP (N, KOH) ,SVP () ,NOH ) ,CVO( N,NOH) , SVD (N, NOW ) 

52  FORHAT(11X,2A10, 3X,3F1G.3,F8.2,F9.2,F13. C,F10.0/) 

51  CONTINUE 

PRINT  3,BCHS( NT, VOW) , BCHP ( NT ,NOH ) , 

♦ ACWP(NT,NOW),CVP INT,  NOW ), SVP (NT,  NOW)  , 

♦ CVO(NT  ,NOWI ,SVC(  (T,NOW ) 

3 F0RMAT(/12X,*ALL  ELEMENTS* , 18 X , 3F 10 .0 , F8. 2 ,F 9 . 2, F13. 0 ,F10 , 3 ) 

IF (K£Y3.EQ.O)GOT > ♦I 

PRINT  42  ,CBCWS,C  )CHP  ,C  ACWP  ,CC  V ,CS  V , 

♦ CWS,CWP,CAW,CV,S  I 

<♦2  F0RMAT(11X,*C0M  FACTOR  EFF  ORT*  ,6  > , 3F1  0 . C , 2 OX  , 2F10 , 0 ,/ 

♦ 11X,*C0M3INED  T0TAL*,9X, 3F 10 . 0 ,20  < ,2F 10 .0 ) 

41  PRINT  8, MA, MTU, PRC 

8 FORMA T(/////52X,  HANAGEMENT  RESERVE  DATA*, ///44X, 

♦ ♦CURRENT  MONTH  A ’PLICATION*, lOX, * J*,I6//44X, *TOTAL*, 

♦ * APPLICATION  TO  DATE* ,10X ,*$* ,I6//44X  ,*GURR£NT*, 

♦*  MONTH  balance*, 14X,*$*, 16) 

IFLAG=C 
DO  60  N=1,NT 

IF(CEAC(N,NOW) .N-.3. )GOTO  1 
CPCT(N)=0, 

GOTO  2 

1 CPCT (N)= (TB(N) -C  :AC(N, NOW) )/ TB(N) *100 . 

2 GPCT (N)= (Tti(N) -B.  Y(N  ,NOW) ) /TB(N) *180. 
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IF  (GPC  (Ml  .£(1.  10  0.  .ANO.NOH.Lc.£)  GPCT(N)=0  . 

IF(CVP  NtNOMI.LT.ie. . AND . C VP (N *NO W ) . GT . -10 . . AND. 

♦ SVP(N*tOM)  .LT.10..ANO.SVP(N,NOW)  . G T. -1 0 . . AND . CPCT  ( N) 

♦ .LT.IO  < . AND. CPCT (N).GT .-10 . . AND. GPCT ( N I .LT.IO. 
>.AN0.GFCMN).GT.-1Q.  )GOTO  60 

IFLAG=: F£ AG*1 
N1 (Ifl;g>=n 
6L  CONTIN'c 

IFaFL^G.£Q.0>  GOTO  64 

PRINT  tl,  <NAM£  <IO,NT  «-l ),  IQ=1 ,55 , 0A1,0  A2 

61  F0RMAT(IH1,/////19X, ♦TABLE  2.  FLAGGED  MONTHLY  ♦, 
♦•CUMULAriVt  COST/SCHEDULE  VARIANCES  FOR  PROGRAM*/ 
♦29X,5AJ3,3X,2A10»///////41X,*COST*,12X,*SCH£OUlE*, 
♦llX,*£A3/aUDGET  VARIANCE  PCT.*/12X ,*EL£MENT  NAME*,13X, 

♦ ♦VARIAK:E  PCT.  ♦,  5X.*VARIANCE  PC:T  .♦,8X,*C0NTRACT0R  ♦» 

♦ •GOVERMENT*///) 

DO  62  N=  1,  IF^.AG 

IF  (NKNi  .NE.NDGOTO  5 

PRINT  6(  .NAME! 1, NT)  , NAME(2 ,NT) ,C VP (NT, NOW) ,SVP(NT,NOW) , 

♦ CPCT(NT)  .GPCMNT) 

66  FORMAT  (y  3X  ,2  A 1 o , Fl6 . 2,  F18 . 2 , F2 0 . 2 , Fl<».  2 ) 

GOTO  62 

5 PRINT  6- ,NAM£(1,N1 (N)) ,NAM£( 2,N1 (N)),CVP(N1(N) ,NOH), 

♦ SVP(N1  (^  ) ,NOW)  ,CPCT(N1  (N))  ,GPCT(N1  (N)  ) 

63  FORMAT(/9X,2A10,F16.2,F18.2,F2C.2,F14.2) 

62  CONTINUt 
GOTO  70 

64  PRINT  6J V (NAME (IQ,NT*l) ,IQ=i,5) ,0 Al,0 A2 
PRINT  61 

65  FORMAT(i //////////////39X,*NO  VARIANCES  ARE  ♦, 

♦ ♦GREATEf  THAN  *10  PCT.  OR  -10  PCT.*) 

70  PRINT  71,  (NAME(I(J,NT*1),IQ=1,5),QA1,0A2 

71  FORMAT(lHl,///35X,*TA8LE  3.  COST  AT  COMPLETION*, 

♦ * ESTD-ATES  FOR  PROGRA  M*/45X,5A10 ,3X,  2A10 /////// 
*64X,*ESTTMATE0  COSTS  AT  COMPLETION  AS  DERIVED  ♦, 

♦ ♦FROM  ♦/ -i7X,  90  (1H*)/4X  ,*ELEMENT*,  16X,  *TOTAL*, 

♦ 22X,*COST*,7X, *SCH£OUL  E* , 3X , *COS T^SCHEO.* , 

♦3X,*TR£NH  OF*,5X,*AVERAGE  OF*/ 

♦6X,*NAMEN17>:  ,*BUDGET*  , 4X  , *CONTR  ACTOR*  , 2 ( 5 X , 

♦♦VARIANCE*) ,4X,*VARIANCES*,4X,*C0ST  VAR.*,4X, 

♦ ♦VARIANCE S*,4X ,*8A YE  SI  AN*/// ) 

00  72  N:  1,NP 

IF (N.EQ. NP)GCTO  72 

IF(FCCV(N,NOK)  .GE.5.*T8(N» ) FCCV ( N ,NOH ) =C . 

IF (FCSV(N,NOW ) .GE.5.*T8(N) )FCSV(N,NOM) =C. 

IF(FCSC(  'C,N04)  .G£.5.*TB(N)  ) FCSC(  N , NOW ) =C  . 

IF (FCCT( v,NOR) .GE.5.*TB(N) )FCSC(N,NOMI=0. 

IF  (EAC(N,NGW)  .6E.5.*TB(N)I£AC(N,NOW)  = 0. 

PRINT  7J,NAME ( 1,N) ,NAM£(2, N) ,T8(N) ,CEAC(N,NOM) ,FCCV(N,NOH) , 
♦FCSV(N,N3H),FCSC(N,NOW) ,FCCT(N,NOW),E AC(N,NOH) , 

♦ BAY(N,NC  4) 

73  FORMAT (c X , 2A1 0 .Fit . 0 , 7 FI  3. 0 , / ) 

72  CONTINUE 
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PRINT  76  «U8tU8 tU  <t UB »UBt Ud ,UB« UB t GA»GAltGAl,GAl, GA1,GA1« GA1,GA1 
76  F0RMAT<3X,*UN0IS  RIBUTEO  BUDGET* . FIO  .0 , 7 (F 13 . 0 ) , /3X, 

♦ •GEN./AOMIN,*,  FI-  .Q,  7«F13.0n 
Xr1RC=FLOAT  (MRC  ) 

IF  (NOW.LE.  2)TC£(:  T.NOW  »=TCE«  NT  ,NOW ) fU  B+GA 
TC£INT.NOM)  = TCE(l  T,N0M  )i-GAl-GA 
FCCV(NT,MOHI  = FCC<  I NT »NOW) +GA1-GA 
Fo  SV ( NT, NO Wl =F  CS'  ( NT , N OR  I ♦6A1 -G A 
FCSC  (NT,NOW)  = FCS;  ( NT  , N OR  » *GA1-GA 
FCCTCNT,NOR>=FCC  (NT , NOR ) ♦GA 1-GA 
EAC(NT,NOR)  = EAC(t  T , NOR ) -t-GAl-G  A 
BAY(NT,NORI=BAV(;  T,NOR ) '•-GAl-GA 

PRINT  7,NAHE(1,N  ) , N AM  E(  2,  NT  ) ,GTB  , TCE  (NT,  NOR ) . FCCl/ (N  T , NOR ) , 
*FCSV(NT.NOR),FCS(  ( NT ,NOR ) , FCCT (NT  ,NOH ) , EAC (NT , NOR  I , 

*eAY(NT,NOR) 

7 F0FMAT(/3X,2A1(],(  10.0,  7F13.0) 

TCV=FCCV (NT,NORI- XMRC 
TSW=FCSV (NT.NORI  XMRC 
TSC=FCSC(NT,NOh)  • XMRC 
TCT=FCCT(NT,NOR»- XMRC 
TAV=EAC(NT,NOR)+;  MRC 
ECT=TCE(NT,N0HI4-  MRC 
IF  (TCE(NT.NOR)  .£(  .0.)ECT=0. 

GT6=GTB*XMRC 
TBAY=8AY (NT, NOR) - XMRC 
IF(N0R.LE.2)TBAY-  3. 

XMRC5=XMRC 

IF4NOR  .LE.2)XMRC‘  =3. 

TBGD=C6TB+GTB 

PRINT  74, XMRC, XMRC, XMRC, XMRC, XMRC , XMRC, XMRC, XMRC5 

74  F0RMAT(4X,*MANAGE  1ENT  RESERVE* ,F 11. 0 , 7F13. 0 ) 

PRINT  75,GTB,ECT,  CV,TSV,TSC,TCT,TAV,T8AY 

75  F0RMAT(4X,*GRAK0  .'OT  AL  S*  , 4X,  8F13 . 0 ) 

IF(KEY3.EQ.CIG0T0  43 

PRINT  44,CGT8,CES  M8UD,CE 
44  F0RMAT(/5X,*C0NTR,iCT0R  EFFORT*,F  1 1 .0,  F 13. 0 / 

♦ 5X,*C0M8INE0  TOTAi.*,  FI  4.  0, FI 3.0) 

43  PRINT  10 

13  FORMAT(/////35X,*!,STIMATES  OF  $0.  REPRESENT  PROGRAM  ELEMENTS*, 

♦*  THAT  HAVE  LESS  HAN  3 MOS. ♦/ 35X , *PROGRESS  OR  HAVE  VARIANCES*, 
♦*  THAT  ARE  SO  LARGE  THAT  THE  EAC  BECOMES*/ 

♦ 35X, ’MEANINGLESS  04007.  OF  THE  ELEMENT  BUDGET).*) 

RETURN 

END 


SUBROUT  I 
COMMON/ 
CO»-MON/l  , 
COMMON/f  , 
CO»'NON/l  . 
COMMON/I-  , 
01  MENS  I(  I 
DATA  Bt: 
DATA  Bf< 
DATA  BC 
DATA  B<i 
DATA  Bl<: 
DATA  B(-  < 
DATA  B(r 
DATA  BCi; 
C 

C REALIGN  8 V; 
Ll=l 

IF(HTN.f  I 

IF(HTN  .fc  I 

IF(HTN,t( 

IFtHTN.H 

IF(HTN  .£' 

IF«HTN  ^ 

IFtHTN.E 

IFIHTN  .E 

IF(HTN.£ 

IF(HTN.E 

IF(HTN  .£ 

1F(HTN.£ 

L2=L1*15 

10=0 

DO  64  IX 
IO  = IOH 

64  B(IO)=B( 
C FIND  LARGEST 
51  BIG=SVO( 
00  1 IX= 
IF(ABS(S 
IF(A3S(C 
C LOOP  TO  NEXT 
1 CONTINUE 

C 

C COMPUTE  SIZE 
IFCBIG.L 
IF  (BIG.G 
IF(BIG.G 
IF  (BIG.G 
IF(8IG.G 
IFiaiG.G 
IF(BIG.G 
IF (IG.EQ 
C SET  MULT,  FA 


NE  TRcNOS(SVN) 

/LM(23 ),N(20)«IFM(20)tTC£(2Ct20)«OAl,OA2«MA,MTU«HRC»WKS 
/SVD(20«2U)t  SVP(20t20) «CVO(20  t20) .CVP(20«20) 
/NCtNP«NT,NON,GTB,TB(20l tHTN« IVR* I YRl, IYR2tU3« GA* GAl 
/0UM6( 1603 ) •0CTC»NAME(4i 201 iOUM7(8CQ) 

/BAY(ZO«20lf CE AC (20*20 )tcCT 
N 8(2Z)»XZ(2)»YZ(2).X(20) ,VC(20»*YS(20) 

},B(6) tB(7)tB(13)*B(18).3(19) * 3 (2 5 > / 7*1H J/ 

)»B( 14)»B(26)/3»1HF/ 

) *3(5) «B(15I «B (17) *8(27)/5*lHM/ 

) *8(8) *B(16) *8 (20)/4*lHA/ 

) *8(2i)/2*lHS/ 

0)  *8( 22)/2*lH0/ 

1)  *B(23)/2*1HN/ 

2)  ,B(.!4)/2*1H0/ 

RIABLi:  I/A/M  1ST  MONTH  OF  PROGRAM 

Q.7HJANUARY)G0T0  51 
Q.8H  ft;8RUARY)Ll=2 
Q,5HM-»fiCH)Ll=3 
Q.5HAPfiIL)Ll=4 
Q,3HMAY)L1=5 
C.4HJUNE)L1=6 
a.4HJULY)Ll=7 
a.6HAU6UST)Ll=6 
1.9HSEFTEMBER) Ll=9 
Q.7H0CT0BER) Ll=10 
a,8HN()VEMBER)L  1=11 
a.8H0ECEMBER)Ll=12 


= I.1*L£ 


AND  SMALLEST  YAlUES  OF  COST/SCHED  OOLt.AR  VARIANCES. 
>IT*1) 

L?NOH 

/U(NT, IX) ) .GT. BIG)BIG=AB3(SV0 (NT* IX)) 

/[)  (NT,  IX) ) .GT.BIG)BIG=ABS(CVD(NT,  IX)) 

MONTH 


OF  Y AXIS 
;.  10)  IG=30 

'.lO.c  AN0.BIG.LE.100.)GOTO  5 
'.100 . .AND. BIG. L£.  1000  . )GOTO  6 
.1000 .. AND. BIG. LE. 10000. )GOTO  7 
'.  100  0 0..AND.BIG.LE.  10 CO 0 0.)  GOTO  8 
'.lOOCaO ..ANO. BIG.LE.lOOOOaO.  ) GOTO  9 
. 1000000. . AND. BIG. LE. 100 uJOOu . )GOTO  17 
.30)GOTO  11 

;tors 


j "r’ 


5 IG=IFIX<BIG/iO *10*1 
IFAC=10 

GOTO  le 

6 IG=IFIX<BIG/tOO- l*lCa*l 
IFAC=100 

GOTO  10 

7 IG=1F1X(BIG/100« •>*iOOC»l 
IFAC=1000 

GOTO  10 

8 IG=IFIXI8IG/100 j0.)*10000*1 
IFAC=l(iOOO 

GOTO  IP 

9 IG=IFIX(BIG/lfl(  000.)  nOOOOOfl 
IFAC=:100000 

GOTO  10 

17  lG=IFlX(BIG/10lG00a. )*1003fl0a«l 
IFAC=1000000 

10  IF  (IG.L£.3*IFA( ) IG  = 3*IFAC 

IF  (IG.GT,3»IFA(  .AND.IG  .L£.6*IFAC I IG=6* IFAC 
IF(IG.GT.6»IFA( .ANO. IG .LE . 9* IFAC ) IG=9*IFAC 
IFCBIG.GT.FLOA:  (9»IFA0)  IG=12*IFAC 
G SET  Y AXIS  OIHENSKNS 

11  0=FLOAT«IG) 

YSTART=-D 
OY  = D/3  . 

C SET  UP  ZERO  LINE 

XZ(1)  =YZ(1»=YZ  <2I=IC*0  . 

XZ(2)=16. 

00  l<f  IX^l.NOW 
IC=IC*1 

YC(ICI=CVO<NT  , JO 
YS(IC)=SWO(NT,  lO 
XtIC»=FLOATIIC> 

14  CONTINUE 

XN=FLOAT  fNOWfrl) <2. 

SY=SVO<NT,NOW) / JY+3. 

IS=IF1X<SW0INT, ^OW)> 

CY=CVO (NT.NOH) /)Y*3. 

IY  = IFIX(CWO(NT,  40W»» 

XY=FLOAT(NOW>3)  '2. 

Xl=XY+.5 

X2=XN-.l 

C GRAPH  ROUTINES 

CALL  PL0TI2.tl.5»*43) 

CALL  SCAL£(XZ«2«1»8. ,0.«2.fl) 

CALL  SCALE(YZ,2,1,6.  , YSTART,OY,l) 

CALL  SCALE(X*IC«1«8.»0  .t2.fl) 

GALL  SCALElYCt  1C r 1« 6 • t YST ART* 0Y« 1 ) 

CALL  SCALE(YS, IC . 1 , 5 r , YSTART* OY, 1 » 

CALL  LINE(XZ*YZ.2*l«c0..07«0) 

CALL  AXIS(0.*0  .»7H00LLARS»7.6.«9q.tYSTART*0Y) 

00  13  IX=1,16 

SX=FL0ATIIX)/2. 
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DX  = SX-  .If 

CALL  S 'MBOLiDX  fO.fifH »4».07.0.) 

13  call  S 'MeOL<SX  ,0.»B(IX)»lt.07«C.) 

CALL  SyHBOL(XltSY,lH%f lt.07«0.  ) 

CALL  SYMBOL  (XI  ,CY«lrr/.t  It  .07*0.) 

CALL  SYMaOLIX2tSY,iM$tit.07.0.) 

CALL  SYHB0L(X2 tCYtlHStlt •07t0.) 

CALL  S^  MB0L(-1.25t4.,9HFAV0RABLEt 9,.0  7,90. > 

CALL  LlN£(X,YS«ICtlt6Z«.Q7,ll 

CALL  SYMBOL(-1.25,.2tllHUNFAVORABL£,ll,»07,9C,) 

cctci=o:tc/iooo. 

Grai=(GrB+FLOAT(MRCn  7100  0. 

8 #Y1=(B1Y(NT,N0HJ +GA1-GA+FL0AT (MRC)I/  1000  . 

TCE1=  (T;.E(NT,N0W)*GA  1-GA^FLOAT  (MRO)  /lOOO. 

CALL  SY<B0L(.25t6.7,23H0RIG  CONTR  T6T  COST  - $,23t.07t0.» 
CALL  NU'BER(2. E. 6. 7, 0CTClt3t .07* 0 * ) 

CALL  SY ^BOL(3. 6.6.7t SHITHOUS.) t8.  .07*0.) 

CALL  SYi<BOL(.25i6.6,23HCURR  CONTR  TGT  COST  - $*23. .0  7*0.) 
CALL  NU<!BER(2.  E*6.&*Grei*3*.07,0.  ) 

CALL  SY (B0l(3. e*6.6*  6H(TH0US.)  .6*. 07*0.) 

CALL  SY*B0L(.25t6.4*23HG0VT  ESTIM  AT  COMPL  - S*23*.07*0.) 
CALL  NL  (BER(2.5*6.‘f,BAYl*3*.07,0.  ) 

CALL  S' M6CL(3. E*6.4*  8H(THOUS.) .8 *.07*0.) 

CALL  S 'KBOL(.25,6.3,23HCONT  ESTIM  AT  COMPL  - $*23*.07.C.) 
CALL  N'1MBER(2.  E * 6.  3 , TC  El  * 3 * . 0 7, 0 . ) 

CALL  S'  KB0L(3. 6*  6.3*  3H(TH0US.) *8  * .£7*  0. ) 

CALL  L:nE(X* YC.IC.l* 23*.07*1) 

CALL  S^MaOL(.7 *7.2,21HVAfiIANCE  ANALYSIS  FOR* 2 1 * . 07 * 0 . ) 
CALL  SVMBOL(J.O*7.2,NAME(1.NT+1)  *1C,.07*0.) 
call  SYiiaOLT*.  0. 7.2*  NAME  (2.NT4-1)  * IG*.  0 7*0.  ) 

CALL  SYIIBOL(  3 .0,7.2*  NA  ME  ( 3 *NT«-1)  * 1 G * . 0 7*0  . ) 

CALL  SYr:BOL(3.0*7.2*NAME(4*NT*l)  *10  *.07*0.) 

CALL  SY')3OLI7.0, 7.2*  NA  ME  (5*NT+1)  * 10*.  0 7*0.) 

CALL  SYiBOLO.  ,6.*1H>*  1*  .07,0.) 

CALL  SYMBOLL'i.  ,6.5*18HC  $ COST  VARIANCE*  18*  . 07*  0.  ) 

CALL  SY1BOL(i>.  ,6.4,22HS  $ SCHEDULE  VARIANCE*  22*  .07*0  . I 

CALL  NU13ER(.(N*SY*IS*0  ,.07,0.) 

CALL  NLiBER(XN*CY*IY*a*.07*0.) 

SP  = SVP  ( <IT,NOW)  *100. 

CP-CVP  ( (T.NOtl)  *100. 

CALL  NL13ER0;Y,SY*SP*2,. 07*0.) 

CALL  Na(BER(XY*CY,CP*2*.07*0.) 

IFCLl.G  ;.1.AM0.L1.LE.11)X0=.5 
IF(Ll.E.l.l)X01=XD*6. 

IF(L1  .E'U2)XC)l=X0+5.5 
IFCUl.Ef  .3)XCil  = X04-5. 

IF  (LI. EC  .4)Xtil=X0*‘*.5 
IF(L1.EC.5)X[)1=X0*4. 

IF(Ll.E(-«6)XCil=XO+3.5 
IF(L1.EQ.7)XC 1=X0*3. 

IF(L1.£Q,8)XC1=X3+2.E 

IF(L1.EQ..9)XC1=X0*2. 

IF (Ll.E0.10)XOl=XD  + l .5 
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•/v-'Tif 
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u 


15 


16 


1F(L1.EQ.11>X01=>:0^1* 

IF  (LI. EQ. 111X02=  X0*7. 

IF(L1.NE.12)G0TC  15 
X0=0. 

XD1=X0U. 

X02=X0*7. 

Y0=-3  , E 

CALL  N0HBER(X0«  'DtIYR,0«.07t0.} 
call  NUMBERiXOl, YO.IYRl. 0t.07«0.) 

IF(L1.LT.11»G0T.  16 

CALL  NUMB£R(XO2vyO«IYR2t0t.07»C.  I 
PL0T(8.  tO  .«  3) 

PL0T(d.«6.»  a 
PL0T(0.»6.t  ?) 

SYHB0L<2.  fl.5.26HSCHE0ULE  VARIANCE  IN  MEEKS ,26*  . C7 .0  .) 
NUMBER! 5. «• 1. 5* SVN .1 • .07* 0. ) 

PLOT(Q.*0.t  ‘31 


CALL 
CALL 
CALL 
CALL 
CALL 

call 

RETURN 

END 
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